home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / FADALPQP.M4 < prev    next >
Text File  |  1996-04-01  |  4KB  |  167 lines
  1. name Fadal 4 Axis 
  2.  
  3. % 00
  4. / 00
  5. O >4
  6. L ->3.>4
  7. N >4
  8. G >2
  9. g >2 G modal
  10. S >4
  11. H >2
  12. D >2
  13. M >2
  14. T >2
  15. R ->3.>4
  16. z ->3.>4 Z
  17. E >2
  18. X ->3.>4
  19. Y ->3.>4
  20. Z ->3.>4
  21. A ->3.>3 Limit 0 360 Incsign
  22. B ->3.>4
  23. I ->3.>4
  24. J ->3.>4
  25. K ->3.>4
  26. F >4.>2
  27. Q ->3.>4
  28. P ->3.>4
  29. ( 00
  30. d >3.>4
  31. e >3.>4
  32. f >3.>4
  33.  
  34.    replace "A" with "A-"
  35.    replace "A--" with "A"
  36. replace "e" with "Diam. "
  37. replace "f" with "Corner Rad. "
  38.  
  39. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85   # List of g codes that are modal
  40.  
  41. ModalLetters X Y Z F A               # List of letters that are modal
  42.  
  43. Sequence#s N 1 1 1                    # Char, freq, incr & start
  44. First#? N                             # Y or N  'Output 1st sequence no.
  45. Last#? N                              # Y or N  'Output last sequence no.
  46.  
  47. HCode X                               # X or X U  'Horizontal char.
  48. VCode Y                               # Y or Y V  'Vertical char.
  49. Dcode Z                               # Depth char.
  50. FeedCode F                            # Feed rate char.
  51.  
  52. RotaryFeed F[InvTime]
  53. FeedType g 95 94 93
  54.  
  55. Comment ( )                           # Begin End comment char.
  56.  
  57. Spindle 3 4 5                         # Cw, ccw & stop m codes
  58. Coolant 8 9 7                         # On, Off & Mist m codes
  59. DComp 41 42 40                        # Left, Right & Cancel m codes
  60. LComp 43 49                           # On & Off codes
  61.  
  62. Feed G1                               # Linear move
  63. Rapid G0                              # Rapid positioning word
  64. Cw G2                                 # Circular move clockwise
  65. Ccw G3                                # Circular move counter clockwise
  66.  
  67. Inc/Abs G 91 90                       # Inc & Abs char. & values
  68.  
  69. CtrCode I J                           # I J or R or I J K L
  70. Helical? Y
  71.  
  72. Spaces? Y                             # Y or N  'Spaces between words
  73.  
  74.   RevSigns A                            # List of letters to reverse signs
  75.  
  76. Incremental? N                        # Y or N  'Inc or abs output
  77. CtrIncremental? Y                     # Y or N  'Inc or abs I & J
  78. ByQuadrants? N                        # Y or N  'Break arcs at quadrants
  79.  
  80. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  81.  
  82. WorkDefault 1                         # Work offset register default
  83.  
  84. Drill                                 # Drilling canned/manual cycle
  85. G81 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  86. end cancel
  87.  
  88. Peck                                  # Pecking canned/manual cycle
  89. G83 G99 R[Vclear] z[D] F[FRate] Q[VBite] X[H] Y[V]
  90. end cancel
  91.  
  92. Tap                                   # Tapping canned/manual cycle
  93. G84 G99 R[Vclear] z[D] F[Frate] Q[VBite] X[H] Y[V]
  94. end cancel
  95.  
  96. LTap                                  # Left handed tapping cycle
  97. G74 G99 R[Vclear] z[D] F[Frate] Q[VBite] X[H] Y[V]
  98. end cancel
  99.  
  100. Ream                                  # Reaming canned/manual cycle
  101. G85 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  102. end cancel
  103.  
  104. Bore                                  # Boring canned/manual cycle
  105. G86 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  106. end cancel
  107.  
  108. Back                                  # Back boring canned/manual cycle
  109. G76 G99 R[Vclear] z[D] F[FRate] Q[Sclear] X[H] Y[V]
  110. end cancel
  111.  
  112. Cancel                                # Cancel a canned/manual cycle
  113. G80
  114. end
  115.  
  116. Index X                               # Index the rotary table
  117. G0 G49 G90 Z0
  118. G0 X[H] Y[V] A[Rotangle]
  119. E[Work]
  120. H[Lcomp] M[Cool] Z[D]
  121. end
  122.  
  123. StartCode                             # Start of the program
  124. %0
  125. O[Program#]
  126. End
  127.  
  128. LineCode                              # Linear move
  129. G1 X[H] Y[V] Z[D] A[Rotangle] g[FeedType] F[FRate]  B[Dist4] 
  130. end
  131.  
  132.   RapidCode Modal? Y
  133.   G0 X[H] Y[V] Z[D] A[Rotangle] a[RotAxDir]
  134.   end
  135.  
  136.  
  137.  
  138. 1stToolChange                         # First tool change
  139. M6 T[Tool] (0 e[ToolDiam] f[corner]
  140. G0 G90 G8 E[work] S[Speed] M[Direct] X[H] Y[V] A[Rotangle] 
  141. H[Lcomp] M[Cool] Z[D]
  142. End
  143.  
  144. Infeed                                # Enable cutter comp
  145. G1 G[Side] X[H] Y[V] A[Rotangle] F[FRate]
  146. end
  147.  
  148. Outfeed                               # Disable cutter comp
  149. G40 X[H] Y[V] Z[D] A[Rotangle] 
  150. end
  151.  
  152. ToolChange                            # Secondary tool changes
  153. M5 M9
  154. G0 G49 G90 Z0
  155. M6 T[Tool] (0 d[ToolRad] e[ToolDiam] f[corner]
  156. G0 G90 S[Speed] M[Direct] X[H] Y[V] A[Rotangle] 
  157. H[Lcomp] M[Cool] Z[D]
  158. End
  159.  
  160. EndCode                               # End of the program
  161. M5 M9
  162. G0 G49 G90 Z0
  163. E0 X0 Y0
  164. M2
  165. %0
  166. End
  167.